﻿Public Partial Class DettaglioAnnuncio1
    Inherits System.Web.UI.Page
    Public pagetitle As String = ConfigurationManager.AppSettings("sitename")
    Public IDAnnuncio As Guid = Nothing
    Public apikey As String = ConfigurationManager.AppSettings("apikey")
    Public address As String = String.Empty
    Public addressTitle As String = String.Empty
    Public prezzo As String = "N.S."
    Public mq As String = "N.S."
    Public vani As String = "N.S."
    Public rif As String = "N.S."
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            If Not String.IsNullOrEmpty(Request.QueryString("id")) Then
                IDAnnuncio = New Guid(Request.QueryString("id"))
                Dim annuncio As Annuncio = DAL.Context.Annuncio.Where(Function(a) a.ID = IDAnnuncio).Single
                If annuncio IsNot Nothing Then
                    With annuncio
                        lblTitolo.Text = .Titolo
                        'prezzo = If(.Prezzo > 0, "€ " & String.Format("{0:#,###,###,##0.00}", .Prezzo), "N.S.")
                        prezzo = FormatPrice(.Prezzo)
                        If .MQ > 0 Then mq = .MQ & " mq."
                        If .Vani > 0 Then vani = .Vani & " vani"
                        If Not String.IsNullOrEmpty(.Riferimento) Then rif = .Riferimento
                        address = .Indirizzo & " " & .Comune.Comune
                        addressTitle = .Indirizzo & " - " & .Comune.Comune & " (" & .Comune.Provincia.Sigla & ")"
                        If .AnnoFabbricazione IsNot Nothing Then lblAnnoFabbricazione.Text = .AnnoFabbricazione
                        If .Bagni IsNot Nothing Then lblBagni.Text = .Bagni
                        If .IDCondizione IsNot Nothing Then lblCondizioni.Text = .Condizione.Descrizione
                        If .Note IsNot Nothing Then lblNote.Text = .Note
                        If .Piano IsNot Nothing Then lblPiano.Text = .Piano
                        If .Termoautonomo IsNot Nothing Then lblTermoautonomo.Text = If(.Termoautonomo, "Si", "No")
                        lblTipoContratto.Text = .TipoContratto.Descrizione
                        lblTipoImmobile.Text = .TipoImmobile.Descrizione
                        ltDescrizione.Text = .Descrizione
                        If .AnnuncioImmagini.Count > 0 Then
                            rpImmagini.DataSource = .AnnuncioImmagini.ToList
                            rpImmagini.DataBind()
                        Else
                            noimage.Visible = True
                        End If
                    End With
                End If
            End If
        End If
    End Sub
    Private Function FormatPrice(ByVal price As Double) As String
        Select Case price
            Case 0
                Return "Trattativa in sede"
            Case 1
                Return "Prezzo affare"
            Case Else
                Return "€ " & String.Format("{0:#,###,###,##0.00}", price)
        End Select
    End Function
End Class